perm filename FRACK.LAP[CMP,LSP] blob sn#210788 filedate 1976-04-13 generic text, type T, neo UTF8
(LAP FOR SUBR) 
       (PUSH P 1) 
       (PUSH P 2) 
       (PUSH P 3) 
       (PUSH P 4) 
       (MOVEI 1 (QUOTE 0)) 
       (MOVEM 1 -3 P) 
 TAG1  (MOVE 1 0 P) 
       (CALL 1 (E *EVAL)) 
       (MOVE 1 -2 P) 
       (CALL 1 (E *EVAL)) 
       (MOVE 2 1) 
       (MOVE 1 -3 P) 
       (CALL 2 (E SET)) 
       (MOVE 1 -1 P) 
       (CALL 1 (E *EVAL))